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HANDY REFERENCE CARD 
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T.M. 


Stack inputs and outputs are shown; top of stack on right. 
This card follows usage of the Forth Interest Group 
(S.F. Bay Area); usage aligned with the Forth 78 
International Standard. 

For more info• Forth Interest Group 
P.0. Box 1105 

N San Carlos, CA 94070. 


‘ Operand Key: \t>\nl,... 

16-bit signed numbers | 

v' d.dl,... 

32-bit signed numbers j 

u 

16-bit unsigned number 

. addr A 

address 

. x • b .V' 

8-bit byte 

uV J C"' 

7-bit ascii character value 

^ ' f 

boolean flag 

1 ■ V* 

floating point number 

,,o > t , • $ 

string 




Sta$k Manipulation 



DUP 

( n — n n ) 

Duplicate top of stack. 

DROP 

( n - ) 

Throw away top of stack. 

SWAP 

( nl n2 — n2 nl ) 

Reverse top two stack items. 

OVER 

( nl n2 — nl n2 nl ) 

Make copy of second item on top. 

ROT 

( nl n2 n3 — n2 n3 nl ) 

Rotate third item to top. 

<R0T 

( nl n2 n3 — n3 nl n2 ) 

Rotate top item to third. 

-DUP 

( n — n ? ) 

Duplicate only if non-zero. 

>R 

( n- ) 

Move top item to "return stack" for temporary 
storage (use caution). 

R> 

( — n ) 

Retrieve item from return stack. 

R 

( - n ) 

Copy top of return stack onto stack. 

Number Bases 


DECIMAL 


Set decimal base. 

HEX 

(~ )’ 

Set hexadecimal base. 

BASE 

( — addr ) 

System variable containing number base. 

r- Arithmetic and Logical 


+ 

( nl n2 — sum ) 

Add. 

D+ 

( dl d2 — sum ) 

Add double-precision numbers. 

p- - 

( nl n2 - id iff ) 

Subtract (nl-n2). 

* 

( nl n2 — prod ) 

Multiply. 

/> 

( nl n2 — quot ) 

Divide (nl/n2). 

MOD 

( nl n2 — rem ) 

Modulo (i.e. remainder from division). 

/MOD 

( nl n2 — rem quot ) 

Divide, giving remainder and quotient. 

*/M0D 

( nl n2 n3 — rem quot) 

Multiply, then divide (nl*n2/n3), with double¬ 
precision intermediate. 

*/ 

( nl n2 n3 — quot ) 

Like */M0D, but give quotient only. 

MAX 

( nl n2 — max ) 

Maximum. 

MIN 

( nl n2 — min ) 

Minimum. 

ABS 

( n — absolute ) 

Absolute value. 

DABS 

( d — absolute ) 

Absolute value of double-precision number. 

MINUS 

( n — -n ) 

Change sign. 

V 'DMINUS 

( d - -d ) . 

Change sign of double-precision number. 

AND 

( nl n2 — and ) 

Logical AND (bitwise). 

OR 

( nl n2 — or ) 

Logical OR (bitwise). 

XOR 

( nl n2 — xor ) 

Logical exclusive OR (bitwise). 

NOT 

( n J* f ) 

True if top number zero (i.e. reverses 
truth value). 

Comparison 


< 

( nl n2 - f ) 

True if nl less than n2. 

> 

( nl n2 - f ) 

True if nl greater than n2. 

<= 

( nl n2 - f ) 

True if nl less than or equal to n2. 

>= 

( nl n2 - f ) 

True if nl greater than or equal to n2. 

= 

( nl n2 - f ) 

True if top two numbers are equal. ( 

o 

( nl n2 - f ) 

True if nl does not equal n2. 

0< 

( n — f ) 

True if top number negative. 

0> 

( n — f ) 

True if top number positive. 

0- 

( n — f ) 

True if top number zero (i.e. reverses 

0# 

( n — f ) 

truth value. 

True if n does not equal zero. 

Memory 

9 

( addr — n ) 

Replace word address by contents. 

1 

( n addr -- ) 

Store second word at address on top. 


c@ 

C! 


( addr — b ) 


C? 

U? 


( b addr - 
( addr -- ) 

( addr -- ) 

( addr -- ) 

( n addr — ) 


CMOVE 

<CM0VE 

FILL 


( from to u 
( from to u 
( addr u b 


-- ) 
- ) 
- ) 


( addr.u 
( addr u 


) 


- ) 


Control Structures 


DO...LOOP 

do: ( end+1 start -- 

I 

( — index ) 

r 

( -- index ) 

j 

( — index ) 

LEAVE 

( - ) 

?EXIT 

( - ) 

DO... HOOP 

do: ( end+1 start -- 

+loop: ( n — ) 

DO... /LOOP do: ( end+1 start -- 

/loop: ( u — ) 

IF...(true) if: ( f - ) 

...ENDIF 

IF...(true) 

...ELSE 

if: (f - ) 

...(false) 

...ENDIF 

BEGIN... 

untilt ( f -- ) 

UNTIL 

BEGIN... 

while: (f — ) 

WHILE 

...REPEAT 

T<§ffMM!® input - Output 


( n — ) 

!r 

( n fieldwidth — ) 

D. 

( d -- ) 

D.R 

( d fieldwidth - ) 

CR 

( " ) 

SPACE 

( ” ) 

SPACES 

( n -- ) 

i _ ^ 

DUMP 

l ) 

( addr u — ) 

TYPE 

( addr u — ) 

COUNT 

( addr -- addr+1 u ) 

7TERMINAL 

( - f ) 

KEY 

( - c ) 

EMIT 

( c — ) 

EXPECT 

( addr n — ) 

WORD 

( c - ) 

input - € 

Mput Formating 

NUMBER 

( addr -- d ) 

<* 

( - ) 

# 

(d-d-) 

#S 

( d - 0 0 ) 

SIGN 

( n d -- d ) 

ti> 

( d -- addr u ) 

HOLD 

( c - ) 

Disfe Handling 

LIST 

( screen — ) 

LOAD 

( screen — ) 

BLOCK 

( block -- addr ) 

B/BUF 

( - n ) 

BLK 

( — addr ) 

SCR 

( — addr ) 

UPDATE 

( - ) 

FLUSH 

( - ) 

EMPTY- 

( - ) 


Set up loop, given index range. 

Place current index value on stack. 

Used to retrieve index after a >R. 

Place index of outer D0-L00P on stack. 

Terminate loop at next LOOP, +L00P, or /LOOP. 
LEAVE if 7TERMINAL is true (i.e. pressed). 

Like DO...LOOP, but adds stack value (instead of 
always ’1 *) to index. 

Like DO... +L00P, but adds unsigned value to 
index. 

If top of stack true (non-zero), execute. (Note: 
Forth 78 uses IF...THEN.) 


Same, but if false, execute ELSE clause. (Note: 
Forth 78 uses IF...ELSE...THEN.) 


Loop back to BEGIN until true at UNTIL. (Note: 
Forth 78 uses BEGIN...END.) 

Loop while true at WHILE;REPEAT loops uncondition¬ 
ally to BEGIN. (Note: Forth 78 uses BEGIN...IF 
...AGAIN.) 


Print number. 

Print number, right-justified in field. 

Print double-precision number 

Print double-precision number, right-justified in 

field. 

Do a carriage return. 

Type one space. 

Type n spaces. 

Print message (terminated by "). 

Dump u words starting at address. 

Type string of u characters starting at address. 
Change length-byte string to TYPE form. 

True if terminal break request present. 

Read key, put ascii value on stack. 

Type ascii value from stack. 

Read n characters (or until carriage return) from 
input to address. 

Read one word from input stream, using given 
character (usually blank) as delimiter. 


Convert string at address to double-precision number. 
Start output string. 

Convert next digit of double-precision number and 
add character to output string. 

Convert all significant digits of double-precision 
number to output string. 

Insert sign of n into output string. 

Terminate output string (ready for TYPE). 

Insert ascii character into output string. 


List a disk screen. 

Load disk screen (compile or execute). 

Read disk block to memory address. 

System constant giving disk block size in bytes. 
System variable containing current block number. 
System variable containing current screen number. 
Mark last buffer accessed as updated. 

Write all updated buffers to disk. 

Erase all buffers. 


Fetch one byte only. 

Store one byte only. 

Print contents of address. 

Print byte at address. 

Print unsigned contents of address. 

Add second number on stack to contents of address 
on top. 

Move u bytes in memory from head to head. 

Move u bytes in memory from tail to tail. 

Fill u bytes in memory with b, beginning at 
address. 

Fill u bytes in memory with zeroes, beginning at 
address. 

Fill u bytes in memory with blanks, beginning at 
address. 



Words 



: xxx 

( - ) 


Begin colon definition of xxx. 

; 

( - ) . 


End colon definition. 

VARIABLE xxx ( n — ) 


Create a variable named xxx with initial value n; 


xxx: ( -- 

addr ) 

returns address when executed. 

CONSTANT xxx ( n — ) 


Create a constant named xxx with value n; returns 


xxx: ( — 

n ) 

value when executed. 

CODE xxx 

( -- ) 


Begin definition of assembly-language primitive 
operative named xxx. 

;C0DE 

( - ) 


Used to create a new defining word, with execution¬ 
time "code routine" for this data type in assembly. 

<BUILDS... 
D0ES> 

does: ( — 

addr ) 

Used to create a new defining word, with execution¬ 
time routine for this data type in higher-level Forth 

LABEL xxx 

( — addr ) 


Creates a header xxx which when executed returns its 
PFA. 
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valFORTH 6S02 Assembler 


ASSEMBLER 

( — ) 

Calls up the assembler vocabulary for subsequent 
assembly language programming. 

CODE xxx 

( — ) 

Enters the new word "xxx" into the dictionary 
as machine language word and calls up the 
assembler vocabulary for subsequent assembly 
language programming. 

C; 

( — ) 

Terminates an assembly language definition by 
performing a security check and setting the 
CONTEXT vocabulary to the same as the CURRENT 
vocabulary. 

END-CODE 

( — ) 

A commonly used synonym for the word C; above. 

The word C; is reconmended over END-CODE. 

SUBROUTINE 

xxx (-) 

Enters the new word "xxx" into the dictionary . 
as machine language subroutine and calls up 
the assembler vocabulary for subsequent assembly 
language programming. 

;C0DE ( — ) 

Control Structures 

When the assembler is loaded, puts the system 
into the assembler vocabulary for subsequent 
assembly language programming. See main 
glossary for further explanation. 

IF, 

( flag — addr 2 ) 

Begins a machine language control structure 
based on the 6502 status flag on top of the 
stack. Leaves an address and a security check 
value for the ELSE, or ENDIF, clauses below, 
"flag" can be EQ , NE , CC , CS , VC , VS , 

MI , or PL . Command forms: 

...flag..IF,..if-true..ENDIF,...al1... 

...flag..IF,..if-true.. 

ELSE,..if-fa!se..ENDIF,..all... 

ELSE, 

( addr 2 — addr 3 ) 

Used in an IF, clause to allow for execution 
of code only if IF, clause is false. If the IF, 
clause is true, this code is bypassed. 

ENDIF, 

( addr 2/3 — ) 

Used to terminate an IF, control structure 
clause. Additionally, ENDIF, resolves all 
forward references. See IF, above for command 
form. 

BEGIN, 

( — addr 1 ) 

Begins machine language control structures of 
the following forms: 

...BEGIN,...AGAIN,... 

...BEGIN,...flag..UNTIL,... 

...BEGIN,...flag..WHILE,..while-true..REPEAT,... 
where "flag" is one of the 6502 statuses: EQ , 

NE , CC , CS , VC , VS , MI , and PL . 

UNTIL, 

( addr 1 flag ) 

Used to terminate a post-testing BEGIN, clause 
thus allowing for conditional looping of a 
program segment while "flag" is false. 

WHILE, 

( addr 1 flag — addr 4 

) Used to begin a pre-testing BEGIN, clause thus 
allowing for conditional looping of a program 
segment while "flag" is true. 

REPEAT, 

( addr 4 — ) 

Used to terminate a pre-testing BEGIN,..WHILE, 
clause. Additionally, REPEAT, resolves all 
forward addresses of the current WHILE, clause. 

AGAIN, 

( addr 1 — ) 

Used to terminate an unconditional BEGIN, 
clause. Execution cannot exit this loop unless 
a JMP, instruction is used. 

Parameter Passing (These routines must be jumped to.) 

NEXT 

( — addr ) 

Transfers control to the next FORTH word to be 
executed. The parameter stack is left unchanged. 

PUSH 

( —- addr ) 

Pushes a 16 bit value to the parameter stack 
whose low byte is found on the 6502 return 
stack and whose high byte is found in the 
accumulator. 

PUSHOA 

( --- addr ) 

Pushes a 16 bit value to the parameter stack 
whose low byte is found in the accumulator and 
whose high byte is zero. 

PUT 

( — addr ) 

Replaces the value currently on top of the 1 
parameter stack with the 16 bit value whose 
low byte is found on the 6502 stack and whose 
high byte is in the accumulator. 

PUTOA 

( — addr ) 

Replaces the value currently on top of the 
parameter stack with the 16 bit value whose 
low byte is in the accumulator and whose high 
byte is set to zero. 

BINARY 

{ — addr ) 

Drops the top value of the parameter stack 
and then performs a PUT operation described 
above. 

POP and 
POPTWO 

( —- addr ) 

POP drops one value from the parameter stack. 
POPTWO drops two values from the parameter 
stack. 

SETUP 

( — addr ) 

Moves one to four values to the N scratch area 


in the zero page and drops all values moved 
from the parameter stack. 


N 

( — addr ) 

Points to a 

nine- 

-byte scratch area 

in the 

zero 


page 

beginning at N-l 

and going to 

N+7. 


Opcodes 

( various — various ) 

ADC, 

AND, 

ASL, 

BIT, 

BRK, 

CLC, 

CLD, 

CL I, 


CLV, 

CMP, 

CPX, 

CPY, 

DEC, 

DEX, 

DEY, 

EOR, 



INC, 

INX, 

INY, 

JSR, 

JMP, 

LDA, 

LDX, 

LDY, 



LSR, 

NOP, 

ORA, 

PHA, 

PHP, 

PLA, 

PLP, 

ROL, 



ROR, 

RTI, 

RTS, 

SBC, 

SEC, 

SED, 

SEI, 

STA, 



STX, 

TAX, 

TAY, 

TSX, 

TXA, 

TXS, 

TYA, 



Aliases 


NXT, 

= 

NEXT JMP, 

POP2, 

= POPTWO JMP 

PSH, 

a 

PUSH JMP, 

XL, 

= XSAVE LDX, 

PUT, 

= 

PUT JMP, 

XS, 

= XSAVE STX, 

PSHA, 

= 

PUSHOA JMP, 

THEN, 

= ENDIF, 

PUTA, 

= 

PUTOA JMP, 

END, 

= UNTIL, 

POP, 

= 

POP JMP, 
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Grapples and Color 

SETCOLOR ( nl n2 n3 -- ) Color register nl (0...3 and 4 for background) 

is set to hue n2 (0 to 15) and luminance n3 
(0-14, even). 

SE. ( nl n2 n3 ~ ) Alias for SETCOLOR. 


GR. 

( n - ) 



Identical to GR. in BASIC. Adding 16 will 





suppress split display. Adding 32 will suppress 
display preclear. In addition, this GR. will 





not disturb player/missiles. 

POS. 

( x y - ) 



Same as BASIC POSITION or POS. Positions the 
invisible cursor if in a split display mode, 
and the text cursor if in 0 GR. . 

POSIT' ‘ 

( x y - j 



Positions and updates the cursor, similar t 

PLOT, but without changing display data. 

PLOT 

( x y - j 



Same as BASIC PLOT. PLOTS point of color 
register specified by last COLOR command. 

DRAWT6'' 

( x y - j 



point x y. 

Same as BASIC DRAWTO. Draws line from las 


.'•■V 



PLOT'ted, DRAWTO'ed or POSIT'ed point to x . 
using color in register specified by last C LOR 
command. 

DR. • , 

( X y - ) 

. 


Alias for DRAWTO. 

FIl 

,( b - ) 



Fills area between last PLOT'ted, DRAWTO'ed or 
POSIT'ed point to last position set by POS., 
using the color in register b. 

4' 

( ~ ) 



Used in the form G" ccccc". Sends text cccc to 
text area in non-0 Graphics mode, starting at 
current cursor position, in color of register 
specified by last COLOR command prior to cccc 
being output. 

GTYPE 

( addr count — ) 


Starting at addr, output count characters to 





text area in non-0 Graphics mode, starting at 
current cursor position, in color of register 
specified by last COLOR command. 

LOC. 

( x y — b 

• ) 


Positions the cursor at x y and fetches the 
data from display at that position. Like 

BASIC LOCATE and LOC. . 

(G") 

( - ) 



Run-time code compiled in by G". 

P0S@ 

( - x y ) 



Leaves the x and y coordinates of the cursor 
on the stack. 

CPUT 

( b - ) 



Outputs the data b to the current cursor 
position. 

CGET 

( - b ) 



Fetches the data b from the current cursor 
position. 

>SCD -v 

( cl - c2 ) 


Converts cl from ATASCII to its display screen 





code, c2. Example: ASCII A >SCD 88 @ C! 
will put an "A" into the upper left corner of 





the display. 

SCD> 

( cl - c2 ) 


Converts cl from display screen code to ATASCII 





c2. See >SCD. 

>B5C0 

( addrl addr2 count -- 

) 

Moves count bytes from addrl to addr2. 

BSCD> 




translating from ATASCII to display screen 
code on the way. 

( addrl addr2 count — 

) 

Moves count bytes from addrl to addr2, 





translating from display screen code to 

ATASCII on the way. 

COLOR 

( b ~ ) 



Saves the value b in the variable CLRBYT. 

CLRBYT 

( — addr ) 


Variable that holds data from last COLOR 





command. 

GREY 

- 0 

PINK 

4 

BLUE - 8 GREEN — 12 

GOLD 

- 1 

LVNDR 

5 

LTBLUE - 9 YLWGRN - 13 

ORNG 

— 2 

BLPRPL — 

6 

TURQ — 10 ORNGRN -- 14 

RDORNG 

- 3 

PRPLBL — 

7 

GRNBL — 11 LTORNG — 15 




(CONSTANTS) 

SOUND 

( chan freq dist vol — 

) 

Sets up the sound channel "chan" as indicated. 





Channel: 0-3 

Frequence: 0-255, 0 is highest pitch. 

Distortion: 0-14, evens only. 

Volume: 0-15. 

Suggested mnemonic: CatFish Don't Vote 

SO. 

( chan freq dist vol — 

) 

Alias of SOUND. 

FILTER! 

( n — ) 



Stores n in the audio control register and into 
the valFORTH shadow register, AUDCTL. Use 

AUDCTL when doing bit manipulation, then do 
FILTER!. 

AUDCTL 

( — addr ) 


A variable containing the last value sent to the 





audio control register by FILTER!. 

XSND 

( n — ) 



Silences channel n. 

XSND4 

-( - ) 



Silences all channels. 

Text Output and Diek Preparation 

S: 

( flag - 

) 


If flag is true, enables handler that sends 
text to text screen. If false, disables the 





handler. (See PFLAG in main glossary.) 

P: 

( flag - 

) 


If flag is true, enables handler that sends 
text to printer. If false, disables the 
handler. (See PFLAG in main glossary) 

BEEP 

( -- ) 



Makes a raucous noise from the keyboard. 

ASCII 

( c, - n 

i (executing) 

) 

Converts next character in input stream to 


( c, — 

(compiling) 

) 

ATASCII code. If executing, leaves on stack. 

If compiling, compiles as literal. 

EJECT 

( - ) 



Causes a form feed on smart printers if the 
printer handler has been enabled by ON P:. 

May need adjustment for dumb or nonstandard 
printers. 

LISTS 

( start count -- ) 


From start, lists count screens. May be aborted 





by CONSOLE button at the end of a screen. 

PL I ST 

( scr - ) 



Lists screen scr to the printer, then restores 
former printer handler status. 

PLISTS 

( start cnt — ) 


From start, lists cnt screens to printer three 





to a page, then restores former printer handler 


- 



status. May be aborted by CONSOLE button at 
the end of a screen. 

FORMAT 

( - ) 



With prompts, will format a disk in drive of 
your choice. 


Oeiugsto® Utlitles 

DECOMP xxx 

Does a decompilation of the word xxx if it can 

CDUMP 

( addr n — ) 

be found in the active vocabularies. 

A character dump from addr for at least n 

#DUMP 

( addr n — ) 

characters. (Will always do a multiple of 16.) 

A numerical dump in the current base for at 

(FREE) 

( — n ) 

least n characters. (Will always do a multiple 
of 8.) 

Leaves number of bytes between bottom of display 

FREE 

( - ) 

list and PAD. 

Does (FREE) and then prints the stack and 
"bytes". 

Prints n in HEX, leaves BASE unchanged. 

H. 

( n — ) 

STACK 

( flag — ) 

If flag is true, turns on visible stack. 

.S 

( ... - ... ) 

If flag is false, turns off visible stack. 

Does a signed, nondestructive stack printout. 

U.S 

( ... - ... ) 

TOS at right. Also sets visible stack to do 
signed printout. 

Does unsigned, nondestructive stack printout. 

B? 

( - ) 

TOS at right. Also sets visible stack to do 
unsigned printout. 

Prints the current base, in decimal. Leaves 

CFALIT 

xxx ( — cfa (executing)) 

BASE undisturbed. ( 

Gets the cfa (code field address) of xxx. If 


xxx ( -- (compiling)) executing, leaves it on the stack; if compiling, 
compiles it as a literal. 


Floating Point 


FCONSTANT 

xxx ( fp — ) 
xxx ( — fp ) 

The character string is assigned the constant 
value fp. When xxx is executed, fp will be 
put on the stack. 

FVARIABLE 

xxx (fp -- ) 
xxx: ( addr -- ) 

The character string xxx is assigned the 
initial value fp. When xxx is executed, the 
addr (two bytes) of the value of xxx will be 
put on the stack. 

FDUP 

( fpl — fpl fpl ) 

Copies the fp number at top-of-stack. 

FDROP 

( f P — ) 

Discards the fp number at top-of-stack.) 

FOVER 

( fp2 fpl — fp2 fpl fp2 ) Copies the fp number at 2nd-on-stack to 
top-of-stack. 

FLOATING 

xxx ( — fp ) 

Attempts to convert the following string, xxx, 
to a fp number. 

FP 

xxx ( — fp ) 

Alias for FLOATING. 

F@ 

( addr — fp ) 

Fetches the fp number whose address is at 
top-of-stack. 

F! 

( fp addr -- ) 

Stores fp into addr. Remember that the 
operation will take six bytes in memory. 

F. 

( fp - ) 

Type out the fp number at top-of-stack. 

Ignores the current value in BASE and uses 
base 10. 

F? 

( addr — ) 

Fetches a fp number from addr and types it out. 

F-t 

( fp2 fpl - fp3 ) 

Replaces the two top-of-stack fp items, fp2 and 
fpl, with their fp sum, fp3. 

F- 

( fp2 fpl - fp3 ) 

Replaces the two top-of-stack fp items fp2 and 
fpl, with their difference, fp3=fp2-fpl. 

F* 

( fp2 fpl - fp3 ) 

Replaces the two top-of-stack fp items fp2 and 
fpl, with their product, fp3. 

F/ 

( fp2 fpl - fp3 ) 

Replaces the two top-of-stack fp items fp2 and 
fpl, with their quotient, fp3-fp2/fpl. 

FLOAT 

( n -- fp ) 

Replaces number at top-of-stack with its fp 
equivalent. 

FIX 

( fp (non-neg, less 
than 32767.5) — n ) 

Replaces fp number at top-of-stack, constrained 
as indicated, with its integer equivalent. 

LOG 

( fpl - fp2 ) 

Replaces fpl with its base e logarithm, fp2. 

Not defined for fpl negative. 

L0G10 

( fpl -- fp2 ) 

Replaces fpl with its base 10 decimal logarithm, 
fp2. Not defined for fpl negative. 

EXP 

( fpl — fp2 ) 

Replaces fpl with fp2, which equals e to the 
power fpl. 

EXP10 

( fpl -- fp2 ) 

Replaces fpl with fp2, which equals 10 to the 
power fpl. 

If fp is equal to floating-point 0, a true 
flag is left. Otherwise, a false flag is left. 

F0= 

I fp — flag ) 

F- 

( fp2 fpl — flag ) 

If fp2 is equal to fpl, a true flag is left. 
Otherwise, a false flag is left. 

F> 

( fp2 fpl - flag ) 

If fp2 is greater than fpl, a true flag is 
left. Otherwise, a false flag is left. 

F< 

( fp2 fpl - flag ) 

If fp2 is less than fpl, a true flag is left. 
Otherwise, a false flag is left. 

FLITERAL ( fp — ) 

Operating System 

If compiling, then compile the fp stack value 
as a fp literal. 

OPEN 

( addr nO nl n2 -- n3 ) 

This word opens the device whose name is at 
addr. The device is opened on channel nO with 
AUX1 and AUX2 as nl and n2 respectively. The 
device status byte is returned as n3. 

CLOSE 

( n - ) 

Closes channel n. 

PUT 

( bl n — b2 ) 

Outputs byte bl on channel n, returns status 
byte b2. 

GET 

( n — bl b2 ) 

Gets byte bl from channel n, returns status 
byte b2. 

GETREC 

( addr nl n2 — n3 ) 

Inputs record from channel n2 up to length nl. 
Returns status byte n3. 

PUTREC 

( addr nl n2 -- n3 ) 

Outputs nl characters starting at addr through 
channel n2. Returns status byte n3. 

STATUS 

( n — b ) 

Returns status byte b from channel n. 

DEVSTAT 

( n - bl b2 b3 ) 

From channel nl gets device status bytes bl and 
b2, and normal status byte b3. 

SPECIAL 

( bl b2 b3 b4 b5 b6 
b7 b8 — b9 ) 

Implements the Operating System "Special" 
command. AUX1 through AUX6 are bl through b6 
respectively, command byte is b7, channel number 
is b8. Returns status byte b9. 

RS232 

( - ) 

Loads the Atari 850 drivers into the dictionary 
(approx 1.8K). 


Software and Documentation 
©Copyright 1982 
Vafipar international 



HANDY REFERENCE CARD 

vmIFORTH LI 


wmiFORTH u Memory Map 


VocabySaries 


( — addr ) 
( — addr ) 


EDITOR ( - 
ASSEMBLER ( - 
DEFINITIONS ( - 
VOCABULARY ( - 


FORGET xxx ( - 


( — addr ) 


( -- addr ) 
( n — ) 

( n - ) 


Returns address of pointer to context vocabulary 
(searched first). 

Returns address of pointer to current vocabulary 
(where new definitions are put). 

Main Forth vocabulary (execution of FORTH sets 
CONTEXT vocabulary). 

Editor vocabulary; sets, CONTEXT. 

Assembler vocabulary; slets CONTEXT. 

Sets CURRENT vocabulary to CONTEXT. 

Create new vocabulary named xxx. 

Print names of all words in CONTEXT vocabulary. 


Miscellaneous arid System 


Begin comment, terminated by right paren on same 
line; space after ( . 

Forget all definitions back to and including xxx. 
Error termination of operation. 

Find the address of xxx in the dictionary; if used 
in definition, compile address. 

Returns address of next unused byte in the 
dictionary. 

Returns address of scratch area (usually 128 bytes 
beyond HERE). 

System variable containing offset into input buffer. 
Used 9 e.g., by WORD. 

Returns address of top stack item. 

Leave a gap of n bytes in the dictionary. 

Compile a number into the dictionary. 


STANDARD DISPLAY 
MEMORY AREA 


GENERAL BUFFER 
WORD BUFFER 


DICTIONARY 

DISK BUFFERS 
2112 BYTES DECIMAL 

(RELOCATABLE) 

(TASK) 

_ KERNEL _ 

BOOT CODE 


ATARI FLOATING POINT 


$0080 BYTES 


- 0 +ORIGSN 


USER AREA 


RETURN STACK 


TERMINAL BUFFER 


ATARI FLOATING POINT 


STACK $O0BC-$008O 


SP IS X REGISTER 


Atari is a trademark of Atari. Inc., a division of Warner Communications. 



Software and Documentation 
©Copyright 1982 
Valpar International 







HANDY REFER! MCE CARD 

WBiFQlRYH" 

SOFTWARE SYSTEM 



EDITOR 1.1 

COMMAND SUMMARY 

Below 

recognizes. 

is a quick reference 

list of all the commands which the video editor 

Entering 

the Edit Mode 

(executed outside of the edit mode) 

V 

( scr# — ) 

& Enter the edit mode and view the specified screen 

L 

C — ) 

sfe Re-view the current screen. 

WHERE 

( — ) 

* Enter the edit mode and position the cursor over 
the word that caused a compilation error. 

LOCATE cccc 

( — ) 

Enter the edit mode and position the cursor o 
the word "cccc" where it is defined. 

LOCATOR 

. ( ON/OFF --- ) 

When ON, allows all words compiled until the 

OFF to be locatable using the LOCATE command <. 

#BUFS 

( #lines — ) 

Sets the length (in lines) of the storage bufft 
The default is five. 


Cursor Movement (issued within the edit mode) 


Ctrl . ' 

T 


Move cursor up one line, wrapping to the bottom line 

Ctrl 

* 

* 

if moved off the top. 

Move cursor down one line, wrapping to the top line 

Ctrl 

«- 

* 

if moved off the bottom. 

Move cursor left one character, wrapping to the 

Ctrl 


* 

right edge if moved off the left. 

Move cursor right one character, wrapping to the 

RETURN 

TAB 

Editing Commands 

left edge if moved off the right. 

Position the cursor at the beginning of the next 
line. 

Advance to next tabular column. 

(issued within the edit mode) 

Ctrl 

INS 


Insert one blank at cursor location, losing the 

Ctrl 

DEL 


last character on the line. 

Delete character under cursor, closing the line. 

shift 

INS 

* 

Insert blank line above current line, losing the 

shift 

DEL 

* 

last line on the screen. 

Delete current cursor line, closing the screen. 

Ctrl 

I 


Toggle insert-mode/replace-mode. 

BACKS 


$ 

(see full description of ctrl-I). 

Delete last character typed, if on the same line 

Ctrl 

H 


as the cursor. 

Erase to end of line (Hack). 

Buffer 

Management 

(issued within the edit mode) 

Ctrl 

T 


Delete current cursor line sending 

Ctrl 

F 


it to the edit buffer for later use. 

Take the current buffer line and insert it 

Ctrl 

K 


above the current cursor line. 

Copy current cursor line sending it to the 

Ctrl 

U 


edit buffer for later use. 

Take the current* buffer line and copy it 

Ctrl 

R 


to the current cursor line. 

Roll the buffer making the topmost buffer 

Ctrl 

B 


line current. 

Roll the buffer backwards making the fourth 

Ctrl 

C 


buffer line on the screen current. 

Clear the current* buffer line and performs 


a ctrl-B. 

*Note: The current buffer line is bottommost on the video display. 


CtBSnySng Screens (issued within the edit mode) 


Ctrl 

P 



Display the previous screen saving all 
changes made to the current screen. 

Ctrl 

N 



Display the next screen saving all changes 
made to the current screen. 

Ctrl 

S 



Save the changes made to the current screen 
and end the edit session. 

Ctrl 

Q 


* 

Quit the edit session forgetting all changes 
made to the current screen. 

Special Keys 

(Issued within 

the edit mode) 

ESC 



* 

Do not interpret the next key typed as any 
of the commands above. Send it directly to 





the screen instead. 

Ctrl 

A 



Put the arrow ("next screen") in the 

lower-right-hand corner of the screen unless 
it is already there, in which case remove it. 

Ctrl 

J 



Split the current line into two lines at the point 
where the cursor is. 

Ctrl 

0 



Corrects any major editing blunders. 

Screen 

(executed outside of the edit mode) 

FLUSH 

( - ) 


* 

Save any updated FORTH screens to disk. 

EMPTY- 

( - ) 


* 

Forget any changes made to any screens not yet 

BUFFERS 




FLUSHed to disk. 

COPY 

( from 

to — ) 

* 

Copies screen #from to screen #to. 

CLEAR 

( scr# 

-- ) 


Blank fills specified screen. 

CLEARS 

( scr# 

#screens — ) 


Blank fills the specified number of screens start¬ 
ing with screen scr#. 

SMOVE 

( from 

to #screens -- 

) 

Duplicate the specified number of screens Starting 
with screen number "from". 
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Strings 


UMOVE 

( addrl addr2 n -- ) 

" ccc" 

( - 

) 


( - 

addr ) 

SCONSTANT 

xxx 

( $ - 


xxx: 

( -- S ) 

$VARIABLE 

xxx 

( n - ) 


xxx: 

( - S ) 

S. 

( $ - 

- ) 

$! 

( $ addr -- ) 

$+ 

( si 

$2 - $3 ) 

LEFTS 

( si 

n - $2 ) 

RIGHTS 

( $1 

n - $2 ) 

MIDS 

( $1 

n u -- $2 ) 

LEN 

( $ - 

- len ) 

ASC 

( s - 

- c ) 

SCOMPARE 

( $1 

$2 - flag ) 

$= 

( si 

$2 - flag ) 

$< 

( $1 

$2 - flag ) 

$> 

( si 

$2 - flag ) 

SAVES 

( $1 

- $2 ) 

INSTR 

( $1 

$2 - n ) 

CHR$ 

( c 

- $ ) 

DSTRS 

( d 

- S ) 

STRS 

( n 

- s ) 

STRINGS 

( n 

$1 - $2 ) 

m$ 

( n - 

- S ) 

INS 

( - 

S ) 

S-TB 

( SI 

- 52 ) 

SXCHG 

( SI 

- $2 ) 


Array Word Oiossary 

ARRAY xxx ( n ~ ) 

xxx:( m — addr ) 


CARRAY xxx ( n -- ) 

xxx:( in — addr ) 


TABLE xxx ( - ) 

xxx:( m -- addr ) 


CTABLE xxx ( — ) 

xxx:( m -- addr ) 


VECTOR xxx (nO ... nN count .. 

xxx:( m — addr 


CVECTOR xxx (bO ... bN count - 
xxx:( m — addr 


UMOVE is a "universal" memory move. It takes 
the block of memory n bytes long at addrl and 
copies it to memory location addr2. UMOVE 
correctly uses either CMOVE or <CM0VE. 

(at compile time) 

(at run time) 

If compiling, the sequence ccc (delimited by 
the trailing ") is compiled into the dictionary 
as a string: 

| 1 en I c I c I c I ... I cl 
(at compile time) 

(at execution time) 

Takes the string on top of the stack and 
compiles it into the dictionary with the name 
xxx. When xxx is later executed, the address 
of the string is pushed onto the stack. 

Reserves space for a string of length n. 

When xxx is later executed, the address of the 
string is pushed onto the stack. 

Takes the string on top of the stack and sends 
it to the current output device. 

Takes the string at second on stack and stores 
it at the address on top of stack. 

Takes $2 and concatenates it with $1, leaving 
$3 at PAD. 

Returns the leftmost "n" characters of $1 as 

$ 2 . 

Returns the rightmost "n" characters of $1 as 

$ 2 . 

Returns $2 of length u starting with the nth 
character of $1. 

Returns the length of the specified string. 
Returns the ASCII value of the first character 
of the specified string. 

Compares $1 with $2 and returns a status flag. 

Compares two strings on top of the stack. 

Compares two strings on top of the stack. 

Compares two strings on top of the stack. 

As most string operations leave resultant 
strings at PAD, the word SAVES is used to 
temporarily move strings to PAD+512. 

Searches SI for first occurrence of $2. 

Returns the character position in $1 if a 
match is found; otherwise, zero is returned. 
Takes the character "c" and makes it into a 
string of length one and stores it at PAD. 

Takes the double number d and converts it to 
its ASCII representation as $ at PAD. 

Takes the single length number n and converts 
it to its ASCII representation as $ at PAD. 
Creates $2 as n copies of the first character 
of 51. 

#IN$ has three similar but different functions. 
If n is positive, it accepts a string of n or 
fewer characters from the terminal. If n is 
zero, it accepts up to 255 characters from the 
terminal. If n is negative, it returns only 
after accepting -n characters from the terminal. 
The resultant string is stored at PAD. 

Accepts a string of up to 255 characters from 
the terminal. 

Removes trailing blanks from $1 leaving new $2. 
Exchanges the contents of $1 with $2. 


(compiling) 

(executing) 

When compiling, creates an array named xxx 
with n 16-bit elements numbered 0 thru n-1. 
Initial values are undefined. When executing, 
takes an argument, m, off the stack and leaves 
the address of element m of the array. 

(compiling) 

(executing) 

When compiling, creates a c-array named xxx 
with n 8-bit elements numbered 0 thru n-1. 

Initial values are undefined. When executing, 
takes an argument, m, off the stack and leaves 
the address of element m of the c-array. 
(compiling) 

(executing) 

When compiling, creates a table named xxx but 
does not allot space. Elements are compiled in 
directly with , (comma). When executing, takes 
one argument, m off the stack and, assuming 
16-bit elements, leaves the address of element 
m of the table. 

(compiling) 

(executing) 

When compiling, creates a c-table named xxx 
but does not allot space. Elements are compiled 
in directly with C, (c-comma). When executing, 
takes one argument, m off the stack and, assuming 
8-bit elements, leaves the address of element m 
of the c-table. 

) (compiling) 

) (executing) 

When compiling, creates a vector named xxx 
with count 16-bit elements numbered 0-N. nO is 
the initial value of element 0, nN is the 
initial value of element N, and so on. When 
executing, takes one argument, m, off the stack 
and leaves the address of element m on the stack. 
) (compiling) 

) (executing) 

When compiling, creates a c-vector named xxx 
with count 8-bit elements numbered 0-N. bO is 
the initial value of element 0, bN is the 
initial value of element N, and so on. When 
executing, takes an argument, m, off the stack 
and leaves the address of element m on the stack. 


D©ub8@ Number Extensions 


DVARIABLE 

xxx ( d — ) 

xxx:( — addr ) 

At compile time, creates a double number 
variable xxx with the initial value d. At 
run time, xxx leaves the address of its value 
on the stack. 

DCONSTANT 

xxx ( d -- ) 

xxx:( — d ) 

At compile time, creates a double number 
constant xxx with the initial value d. At 
run time, xxx leaves the value d on the stack. 

D- 

( dl d2 - d3 ) 

Leaves dl-d2=d3. 

D0= 

( d — flag) 

If d is equal to 0. leaves true flag; 
otherwise, leaves false flag. 

D= 

( dl d2 - flag ) 

If dl equals d2, leaves true flag; otherwise, 
leaves false flag. 

D0< 

( d — flag ) 

If d is negative, leaves true flag; otherwise, 
leaves false flag. 

D< 

( dl d2 — flag ) 

If dl is less than d2, leaves true flag; other¬ 
wise, leaves false flag. 

D> 

( dl d2 - flag ) 

If dl is greater than d2, leaves true flag; 
otherwise, leaves false flag. 

DMIN 

( dl d2 - d3 } 

Leaves the minimum of dl and d2. 

DMAX 

( dl d2 - d3 ) 

Leaves the maximum of dl and d2. 

D>R 

( d - ) 

Sends the double number at top of stack to the 
return stack. 

DR> 

( - d ) 

Pulls the double number at top of the return 
stack to the stack. 

D, 

( d - ) 

Compiles the double number at top of stack 
into the dictionary. 

DU< 

( udl ud2 — flag ) 

If the unsigned double number udl is less 
than the unsigned double number ud2, leaves a 
true flag; otherwise, leaves a false flag. 

M+ 

( dl n — d2 ) 

Converts n to a double number and then sums 
with dl. 

High Resolution Text Output 

GCINIT 

( ... ) 

Initializes the graphic character output 
routines. This must be executed prior to using 
any other hi-res output words. 

GC. 

( n — ) 

Displays the single length number n at the 
current hi-res cursor location. 

GC. R 

( nl n2 - ) 

Displays the single length number nl right- 
justified in a field n2 graphic characters 
wide. See .R . 

GCD.R 

( d n — ) 

Displays the double length number d right- 
justified in a field n graphic characters 
wide. See D.R . 

GCEMIT 

( c - ) 

Displays the text character c at the current 
hi-res cursor location. Three special 
characters are interpreted by GCEMIT. 

GCLEN 

( addr n — len ) 

Scans the first n characters at addr and 
returns the number of characters that will 
actually be displayed on screen. 

GCR 

( - ) 

Repositions the hi-res cursor to the beginning 
of the next hi-res text line. See CR . 

GCLS 

( - ) 

Clears the hi-res display and repositions the 
cursor in the upper lefthand corner. 

GCSPACE 

( -- ) 

Sends a space to the graphic character output 
routine. See SPACE . 

GCSPACES 

( n — ) 

Sends n spaces to the graphic character output 
routine. See SPACES . 

GCTYPE 

( addr n -- ) 

Sends the first n characters at addr to the 
graphic character output routine. See TYPE . 

GC" ccc" 

( - ) 

Sends the character string ccc (delimited by “) 
to the graphic character output routine. 

GCBKS 

( - ) 

Moves the hi-res cursor back one character 
position for overstriking or underlining. 

GCPOS 

( horz vert -- ) 

Positions the hi-res cursor to the coordinates 
specified. Note that the upper lefthand corner 
is 0,0. 

GCS. 

( addr -- ) 

Sends the string found at addr and preceded by 
a count byte to the graphic character output 
routine. See $. . 

SUPER 

( - ) 

Forces the graphic character output routine 
into the superscript mode (or out of the sub¬ 
script mode). See VMI below. May be performed 
within a string by the ^ character. 

SUB 

( - ) 

Forces the graphic character output routine 
into the subscript mode (or out of the super¬ 
script mode). See VMI below. May be performed 
within a string by the * character. 

VMI 

( n - ) 

The VMI command sets the number of eighths of 
characters to scroll up or down when either a 
SUPER or SUB command is issued. 

VMI# 

( -- addr ) 

A variable set by VMI. 

OSTRIKE 

( ON or OFF - ) 

If the OSTRIKE option is ON, characters are 
printed over top of the previous characters 
giving the impression of overstriking. 

GCBAS 

(— addr ) 

A variable which contains the address of the 
character set displayed by GCEMIT. To change 
character sets, simply store the address of 
your new character set into this variable. 

GCLFT 

( -- addr ) 

A variable which holds the column position of 
the left margin. 

GCRGT 

( — addr ) 

A variable which holds the column position of 
the right margin. 
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Case Structures 

CASE: structure 


SEL Structure 


Format: 


Format: 


CASE Structure 


Format: 


CASE: 


wordname 

: wordname 

wordO 



wordl 

SEL 



nl 

-> wordO 

wordN ; 

n2 

-> wordl 


nN* 

> wordN 


( NOSEL 

wordnone 


SELEND 


) 


: wordname 

CASE 

wordO 

wordl 

wordN 

( NOCASE wordnone ) 
CASEND 


COND Structure 


Format: 

: wordname 

COND 

conditionO « wordsO » 

conditionl « wordsl » 

conditionN « wordsn » 

( NOCOND wordsnone ) 

CONDEND 


Miscellaneous Utilities 


XR/W ( #secs addr blk flag — 

LOADS ( start count -- ) 

THRU ( start finish -- 

start count 

SEC ( n — ) 

MSEC ( n - ) 

H->L ( nl ~ n2 ) 

L->H ( nl - n2 ) 

H/L ( nl — nl(hi) nl(lo) ) 

BIT ( b — n ) 

?BIT ( n b — f ) 

TBIT ( nl b - n2 ) 

SB IT ( nl b — n2 ) 

RBIT ( nl b — n2 ) 

STICK ( n — horz vert ) 

PADDLE ( nl - n2 ) 

16TIME ( — n ) 

8RND ( - b ) 

16RND ( — n ) 

CHOOSE ( ul - u2 ) 

CSHUFL ( addr n ~ ) 

SHUFL ( addr n ~ ) 

DUMP ( addr n — ) 

BXOR ( addr count b -- ) 

BAND ( addr count b — ) 

BOR ( addr count b - ) 

STRIG ( n — Hag ) 

PTRIG ( n — flag ) 


) "Extended read-write." The same as R/W except 
that XR/W accepts a sector count for multiple 
sector reads and writes. Starting at address 
addr and block blk, read (flag true) or write 
(flag false) #secs sectors from or to disk. 

Loads count screens starting from screen # 
start. 

Converts two range numbers to a start-count 
) format. 

Provides an n second delay. Uses a tuned 
do-loop. 

Provides an n millisecond delay, (approx) 

Uses a tuned do-loop. 

Moves the high byte ofnlto the low byte and 
zero's the high byte, creating n2. Machine 
code. 

Moves the low byte of nl to the high byte and 
zero's the low byte, creating n2. Machine code. 
Split top of stack into two stack items: 

New top of stack is low byte of old top of 
stack. New second on stack is old top of 
stack with low byte zeroed. 

Creates a number n that has only its bth bit 
set. The bits are numbered 0-15. 

Leaves a true flag if the bth bit of n is set. 
Otherwise leaves a false flag. 

Toggles the bth bit of nl, making n2. 

Sets the bth bit of nl, making n2. 

Resets the bth bit of nl, making n2. 

Reads the nth stick (0-3) and resolves the 
setting into horizontal and vertical parts, 
with values from -1 to +1. -1-1 means up 

and to the left. 

Reads the nlth paddle (0-7) and returns its 
value n2. Machine code. 

Returns a 16 bit timer reading from the system 
clock at locations 19 and 20, decimal. 

Leaves one random byte from the internal 
hardware. Machine code. 

Leaves one random word from the internal 
hardware. Machine code with 20 cycle extra 
delay for rerandomization. 

Randomly choose an unsigned number u2 which 
is less than ul. 

Randomly rearrange n bytes in memory, start¬ 
ing at address addr. 

Randomly rearrange n words in memory, start¬ 
ing at address addr. 

Starting at addr, dump at least n bytes (even 
multiple of 8) as ASCII and hex. May be 
exited early by pressing a CONSOLE button. 
Starting at address addr, for count bytes, 
perform bit-wise exclusive OR with byte b at 
each address. 

Starting at address addr, for count bytes, 
perform bit-wise AND with byte b at each 
address. 

Starting at address addr, for count bytes, 
perform bit-wise OR with byte b at each address. 
Reads the button of joystick n (0-3). 

Reads the button of paddle n (0-7). 
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Player/Missile Command 8ummary 

Note: Players and missiles are numbered 0 thru 3. The fifth player is numbered 4. 


(PMINIT) 

(addr res — 

PMINIT 

( res — ) 

PMBAS 

( — addr ) 

PLAYERS 

( ON/OFF — ) 

5THPLY 

( ON/OFF — ) 


PLYCLR 

MSLCLR 

PMCLR 

MCPLY 

( pi# — ) 

( ml# — ) 

( — ) 

( ON/OFF — ) 


PRIOR 

( n — ) 


PLYWID 

{ width pi# — 

) 

MSLWID 

( width ml# — 

) 

PMCOL 

( pi# hue lum ■ 

... ) 

BLDPLY 

( addr len horz 
pi# — ) 

vert 

BLDMSL 

( addr len horz 
ml# — ) 

vert 

PLYL0C 

( pi# — horz 

vert ) 

MSLLOC 

( ml# — horz 

vert ) 

PLYMV 

{ horz vert pi# 

... ) 


MSLMV 

( horz vert ml# — 

PLYPUT 

{ x y pi# — ) 

PLYCHG 

( addr len pi# -— ; 

PLYSEL 

( addr # pi# — ) 

PLYBND 

(1 r t b pi# — 

MSLBND 

(1 r t b ml# — 

?BND 

( — n ) 

7PLYSTT 

( pi# — n ) 

7MSLSTT 

( ml # — n ) 

?CQL 

( — f ) 

?MXPF 

( ml# — n ) 

7PXPF 

( pi# — n ) 

7MXPL 

( url# —- n ) 

7PXPL 

( Pi# — n ) 

HITCLR 

{ — ) 


Initializes the player missile routines with 
PM memory specified by "addr" with “res" 
resolution. 

Initializes the player missile routines with 
“res" resolution and with PM memory located 
at the first available memory below the 
display list. 

A variable pointing to player/raissile memory 
which is set by (PMINIT) or PMINIT. It can 
be read from but not written to. 

This command enables or disables the player/ 
missile graphic display. 

This command turns (the fifth player mode) 

ON or OFF. If OFF, missiles take the colors 
of their corresponding players. If ON, all 
missiles take on the common color of play- 
field 3. The fifth player is numbered as 
four (4). 

Erases the specified player (0-3,4). 

Erases the specified missile (0-3). 

Erases all players and all missiles. 

This cgnraiand turns (the multiple color 
player mode) ON or OFF. See documentation 
for explanation. 

Sets the priority of players and playfields. 

See documentation for legal settings. 

Sets the width of the specified player. 

Legal widths are normal (0 or 2), double (1), 
or quadruple (3). 

Sets the width of the specified missile. 

Legal widths are normal (0 or 2), double (1), 
or quadruple (3). 

Sets the specified player to the color 
defined by "hue" and "Turn 0 . 

Creates a player whose image is at "addr" 
with a length “len". The player is originally 
placed at the specified horizontal and 
vertical coordinates. 

Creates a missile whose image is at "addr" 
with a length "len". The player is originally 
placed at the specified horizontal and 
vertical coordinates. 

Returns the horizontal and vertical coordi¬ 
nates of the specified player. 

Returns the horizontal and vertical coordi¬ 
nates of the specified missile. 

Moves the specified player according to the 
horizontal and vertical offsets specified. 

A positive horizontal offset moves the player 
right, a negative one moves it left. Likewise, 
a positive vertical offset moves the player 
down and a negative one moves it up. 

Moves the specified missile according to the 
horizontal and vertical offsets specified. 

See PLYMV above. 

Positions the specified player and location 
(x,y) on the video display. 

This changes the image of the specified 
player to the image of length "len" at "addr". 
This changes the image of the specified 
player to image number "#" in a table of 
images starting at address "addr". 

Specified the left, right, top, and bottom 
boundaries of the specified player. 

Specified the left, right, top, and bottom 
boundaries of the specified missile. 

Returns the boundary status of the last 
player or missile moved. See documentation 
for a description of this value. 

Returns the boundary status of the last move 
of the specified player. See documentation 
for a description of this value. 

Returns the boundary status of the last move 
of the specified missile. See documentation 
for a description of this value. 

Returns true (1) if any collisions have 
occurred since the last HITCLR command was 
issued. 

Returns 0 if the specified missile has not 
hit any playfields since the last HITCLR 
command. If any collisions have occurred, 
a status value is returned. See documentation. 
Returns 0 if the specified player has not hit 
any playfields since the last HITCLR command. 

If any collisions have occurred, a status 
value is returned. See documentation. 

Returns 0 if the specified missile has not 
hit any players since the last HITCLR coamand. 
If any collisions have occurred, a status 
value is returned. See documentation. 

Returns 0 if the specified player has not 
hit any other players since the last HITCLR 
command. If any collisions have occurred, a 
status value is returned. 

Clears the collision registers to a no- 
collision state. 


Audio Editor Command Summary 

AUDED ( — ) Calls up the audio-palette program. 

Character Editor Command Summary 

CHAR-EDIT { — ) Calls up the character editor. 


BOUNDARY MAP 

{Double resolution values are In parentheses) 


32.« $20 
(16) 


32 

( 1 . 6 ) 


48 = $30- pi 

(Left) 


48- 


Video Screen 


223 = $DF 
(111 = $6F) 


-207= $CF 
(Bight) 


-207 


223 
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Memory Map 


wmiFmm 

r (u. 


SINGLE RESOLUTION 

PMBASE + 2048 — 


DOUBLE RESOLUTION 


PMBASE+ 1792 

PMBASE + 1536 

PMBASE+ 1280 

PMBASE+ 1024 


PMBASE + 768 — 


PMBASE 
(Must lie on a 
2K boundary) 


Player 0 


Missiles’' 

(5th Player) 


Unused Memory 
Available to User 


8 bits 


Player 3 


Player 2 


Player 1 


•-PMBASE + 

1024 

•-PMBASE+ 

896 

•-PMBASE+ 

768 

•—PMBASE+ 

640 

•-PMBASE + 

512 

•-PMBASE + 

384 


PMBASE 
(Must lie on a 
IK boundary) 


*Note: All missiles occupy the same memory location. 

This is possible because unlike players which 
are 8 bits wide and fill an entire byte, mis¬ 
siles are only two bits wide. Four missiles 
can therefore be represented in the same amount 
of memory as a single player. 

Byte form: i m3 I m2 S ml i mO ' 
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(DBINIT) 

HANDY REFI 

va/f 

SOFTWAI 

DISPLAY F 

( dmem dlist — ) 

DBINIT 

( ... ) 

DBM 

( opcode ) 

DBMS 

( #times opcode — ) 

DBPTR 

( block# — ) 

DBIN 

( opcode block# --- ) 

DBINS 

( #times opcode 

DBDEL 

block# — ) 

( block # — ) 

DBDELS 

( #times block# --- ) 

DBDELL 

( — ) 

DBM0D 

( modifier block# —- ) 

DBM0DL 

( modifier — ) 

DBREM 

( block# — ) 

DBREMS 

( #times block# --- ) 

DBREML 

( — ) 

7DBVAL 

( block# --- value) 

7ANTM0D 

( block# — antic-mode) 

7DBM0DS 

( block# — modifiers ) 

DBWID 

( width —- ) 

DBADR 

( block# — address ) 

DMCLR 

( — ) 

USRDSP 

( — ) 

MIXED 

( — ) 

DMPLST 

( — ) 

DSPEND 

( — address ) 

DSPBLK 

( — address ) 

DML0C 

( — address ) 

LSTL0C 

( ... address ) 

DBLST 

( block# — address ) 

DSPLST 

( pointer — address ) 


AFTER 


This command initializes the display formatter 
using "dlist" as the target address for the 
display list, and "dmem" as the target address 
for display memory. 

This command initializes the display formatter 
setting the display memory address to top-of- 
memory minus $1F00. The display list is 
targeted for $100 bytes below the display 
memory. 

The DBM command adds "opcode" to the end of 
the current display list. 

The DBMS command Derforms a multiple DBM 
command as described above. 

This command makes the specified block the 
next block to be created with the DBM commar 
It essentially makes block#-l the end of the 
current list. 

The DBIN command inserts the specified opcode 
into the specified block. That block and all 
following blocks are pushed back one block. 

This command performs a multiple DBIN command 
as described above. 

The DBDEL command deletes the specified block 
from the current display list. 

This command performs a multiple DBDEL command 
as described above. 

The DBDELL command deletes the last block of 
the current display list. 

This command modifies the specified block. 

Legal modifiers are VRTMOD, HRZMOD, and INTMOD. 
This command modifies the last block of the 
current display list. 

The DBREM command removes all modifiers from 
the specified block. Note that if a HRZMOD 
is stripped, display memory allocation will 
change. 

This command is a multiple DBREM command. 

This command strips modifiers from the last 
block of the current display list. 

The ?DBVAL command returns all information 
about the display block specified, i.e., 
the antic mode and any modifiers. This 
information is returned as one value. 

This conmand returns the antic-mode (or opcode) 
of the specified block. 

The 7DBM0DS command returns the modifiers for 
the specified block. This information is 
returned as one value. See documentation for 
notes on interpretation of this value. 

The DBWID command sets the display formatter 
up for narrow (1), normal (2), or wide (3) 
screen display. 

Given a disolay block number, it returns the 
address of the first byte of that display 
block. 

The DMCLR correnand clears the display memory 
pointed to by the display list currently 
being created. 

Once a display list has been created, USRDSP 
activates the new list. 

The MIXED command performs a USRDSP then 
instructs the Atari operating system to 
re-direct all output to the video display 
memory specified by the newly created 
display list. 

The DMPLST command gives a complete, 
informative listing of the display list 
currently being created. 

A variable which contains a pointer to the 
end of the current display list. It is an 
offset from 0 DSPLST. 

A variable containing the number of the next 
display block to be created. 

A variable which contains the target address 
of the display memory pointed to by the 
current display list. 

A variable which contains the target address _ 
for the current display list. 

An array of addresses used by DBADR. 

A c-array containing the display list 
currently being created. DSPEND above 
points to the end of the list in this array. 


HANDY REFERENCE CARD 

wmSF&BTM 

SOFTWARE SYSTEM 

DISPLAY FORMATTER 


The Character Modes 

There are 6 character modes (opcodes 2 thru 7). All character modes 
work in the same way, i.e., the values in display memory are indices to 
a large "n" by 8 byte array. In some of these modes, the highest one or 
two bits are used to specify a color with only the remaining lower bits 
used for indexing. The following table gives information about each of 
the modes: 


Antic mode 

2 

3 

4 

5 

6 

7 

Basic mode 

0 

— 

... 

... 

T 1 

2 

# color * 

1.5 

1.5 

5 

5 

5 

5 

Chars/line 
narrow wid 

32 

32 

32 

32 

16 

16 

Chars/line 
normal wid 

40 

40 

40 

40 


20 

Chars/line 
wide screen 

48 

48 

48 




Scan lines/ 
pixel 


10 

8 

16 

Hi 


Bits/pixel 

1 

1 

2 

2 

i 

rn 

Color clocks 
per pixel 

a 

B 

1 





' Colors 


mode 2: Takes the color of PF2 with the lum of PF1 
(Artifacting/bleed very noticeable) 
mode 3: Same as above 

mode 4: Two bits/pixel in character definitions 
00 = BAK 01 = PF0 10 = PF1 
11 * PF2 if bit 7 of index = 0, else PF3 
mode 5: Same as 4 above 
mode 6: Most significant two bits of index 
0 = PF0 1 = PF1 etc. 
mode 7: Same as 6 above 


Th@. Graphic Modes 

There are 8 graphic modes. Unlike character modes, the values in 
display memory are not indices into an array of character definitions, 
but rather are the definitions themselves. Depending on the graphic mode, 
these values give different results. The following table gives various 
information about each mode. 


Antic mode 

8 

9 

A 

B 

C 

D 

E 

F* 

Basic mode 

3 

4 

5 

6 


7 

— 

8 

# colors 

4 

2 

4 

2 

2 

4 

4 

1.5 

bytes/line 
narrow wid 

8 

8 

16 

16 

16 

32 

32 

32 

bytes/1ine 
normal wid 

10 

10 

20 

20 

20 

40 

40 

40 

bytes/1 ine 
wide screen 

12 

12 

24 

24 

24 

48 

48 

48 

Pixels per 
normal wid 

40 

80 

80 

160 

160 

160 

160 

320 

Scan lines/pixel 

8 

4 

4 

2 

1 

2 

1 

1 

Bits/pixel 

2 

1 

2 

1 

1 

2 

2 

1 

Color clocks 
per pixel 

4 

2 

2 

1 

1 

1 

1 

.5 


*Mode F values differ when in GTIA modes 


Colors 

mode 8: Two bits/pixel, 4 pixels/byte 

00 = BAK 01 = PF0 10 = PF1 
mode 9: One bit/pixel, 8 pixel s/byte 
0 = BAK 1 = PF0 
mode A: Same as mode 8 above 

mode B: Same as mode 9 above 

mode C: Same as mode 9 above 

mode D: Same as mode 8 above 

mode E: Same as mode 8 above 

mode F: Take the color of PF2 and lum of PF1 
(if not in a GTIA mode) 


11 = PF2 
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i ralFORWL 

SOFTWARE SYSTEM 


General Functions 

PEN 

( n ~ ) 

PHPEN 

( n — ) 

DRAW 

( n - ) 

DRAWT0 

( x y — ) 

PHIL 

( n - ) 


PHILT0 

( x y - ) 

GO 

( n - ) 

DUPG0 

( n — n ) 

GO. 

( n - ) 

DUPG0. 

( n — n ) 

DOT 

( - ) 

GOTO 

( x y — ) 

GOTO. 

( x y - ) 

CENTER 

( - ) 

CENTER0 

( - ) 

REL0C 

( ~ ) 

ASPECT 

( ON or OFF - 

DX1 

( - n ) 

DY1 

( - n ) 

TURN 

( n - ) 

TURNT0 

( n ~ ) 

TURNTWD 

( x y - ) 

DAZM 

( — n ) 


This command is used to change the color 
which the armadillo draws and fills. 

This command is used to change the color 
which the armadillo fills. 

Move the armadillo n units in the directi 
in which it is heading. Draw that portior 
the Tine of travel of the armadillo that f . 
within the current window. 

Move the armadillo to x y and draw that po, 
of the line of travel that falls within the 
current window. 

Move the armadillo n spaces in the direction 
it is heading, and color that portion of the 
path of travel with the PEN value. Also 
perform a fill to the right during che time 
that the armadillo is in the current window. 

Move the armadillo to the point x, y. Then 
proceed as in PHIL. 

GO moves the armadillo n units in the directi n 
in which it is facing. 

Same as GO, but doesn't destroy stack argument. 
Same as GO, but colors last pixel with PEN color. 
Same as GO., but doesn't destroy stack argument. 
DOT puts a pen-color dot at the present 
armadillo position. 

GOTO positions the armadillo at x,y. 

Same as GOTO but puts dot at x,y. 

Positions the armadillo at the point 0,0. 
Positions the armadillo at the point 0,0 and 
turns it to face up. 

Positions the armadillo at the last point 
drawn by the system routines. DILLO vocab. 

ON ASPECT will cause vertical components of 
subsequent graphics commands to be scaled to 
account for pixels not being square. 

Returns the x coordinate of the armadillo. 

Returns the y coordinate of the armadillo. 

Changes the direction that the armadillo is 
facing by n degrees clockwise. 

Turns the armadillo to a heading of n degrees 
clockwise from vertical. 

Turns the armadillo so that it faces toward 
the point x,y. 

Returns the direction, in degrees (0-359), in 
which the armadillo is facing. 


Windows and Coordinat© Systems 


WINDOW 

( left right 

top bottom — ) 

Sets a new window whose boundaries, expressed 
in the coordinate system of the base window 
(not the current window), are taken from the 
stack in the order indicated. 

RELWND 

( left right 

top bottom — ) 

Makes current a window whose edges are as 
indicated on stack in the coordinate system 
of the current window (not the base window). 

WIPE 

( - ) 

Colors the entire current window according to 
the color register selected by the last PHBAK 
command, but uses DRAW and draw options. 

FRAME 

( - ) 

Draws a line around the current window. 

BASWND 

( - ) 

Makes the base window (usually the full window 
first put up by a GR. command) current, centers 
the armadillo and turns it to 0 degrees. 

THISWND 

XXX, ( — ) 

xxx: ( — ) 

Creates a word, xxx, which when executed makes 
current the window which was current at the 
time xxx was defined. 

DEFBAS 

( left right 

top bottom — ) 

Advanced users. Used to set up a base window 
when not using GR.. The values indicated are 
the number of pixels from the left edge of the 
display (for left and right) and from the top 
edge of the display (for top and bottom). DILLO, 

WCTR 

( .. ) 

Center the armadillo in the current window. 

WCTR0 

( - ) 

Center the armadillo in the current window and 
turn it to 0 degrees. 

Lin@-naming/Lin© Manipulation and Point ^naming 

NAMEPT 

xxx, ( x y — ) 
xxx: ( — x y ) 

Creates a word xxx. When xxx is executed, it 
returns x and y to the stack. 

THISPT 

xxx, (-—) 
xxx: ( — x y ) 

Creates a word xxx. xxx returns defining-time 
armadillo x,y. 

2PT-LN 

( xl yl x2 y2 — a b c ) 

Takes the coordinates of two points and leaves 
a, b, and c of the connecting line. 

MAKLN 

( — a b c ) 

Pushes to stack the a, b, c representation of 
the imaginary line along which the armadillo 
faces. 

NAMELN 

xxx, ( a b c — ) 
xxx: ( — a b c ) 

Creates the word xxx. When xxx is executed, 
it returns the values a b c to the stack. 

THISLN 

xxx, ( -- ) 
xxx: ( — a b c ) 

Creates the word xxx. When xxx is executed, 
it returns the a, b, and c values of the line 
that the armadillo was sitting on and facing 
along when xxx was created. 

2LNX 

( al bl cl a2 b2 c2 
— x y ) 

Given two lines on the stack in a b c form, 

2LNX returns the point of intersection of the 


two lines. 


Options 

(All words below take a flag stack argument, and leave none.) 


Switch 

Default 

ON 

OFF 

RPHIL 

on 

Enables right fill 

Disables right fill 



with PHIL, PHILT0 

with PHIL, PHILTO. 

LPHIL 

off . 

Enables left fill 

Disables left fill 



with PHIL, PHILT0. 

with PHIL, PHILTO. 

DRX0R 

off 

DRAW, DRAWTO will 

DRAW, DRAWTO will 



xor pixels with 

replace pxls with 



line color. 

line color. 

PHXOR 

off 

PHIL, PH1LT0 will 

PHIL, PHILTO will 



xor pixels with 

replace pxls with 



fill color. 

fill color. 

DRUNT 

off 

Enable draw-until 

Disable draw-until 



functions. 

functions. 

PHUNT 

off 

Fill to edge of 

Fill until encounter¬ 



window or to dest. 

ing halt pixel cond 



pixel. 

set by PHBAK, PHUN0T. 

DRUN0T 

on 

With DRUNT on. 

With DRUNT on, 



DRAW, DRAWTO draw 

DRAW, DRAWTO draw 



until hit color set 

until hit not color 



by DRBAK, PHBAK. 

set by DRBAK, PHBAK. 

PHUN0T 

on 

With PHUNT on. 

With PHUNT on. 



PHIL, PHILTO fill 

PHIL, PHILTO fill 



until hitting color 

until hitting not 



set by PHBAK. 

color set by PHBAK. 

PH+DR 

on 

PHIL, PHILTO draw 

PHIL, PHILTO don't 



line as filling. 

draw line as filling. 

DR1ST 

on 

First point of 

First point of lines 



lines is drawn. 

is not drawn. 

PHCRNR 

off 

PHIL, PHILTO perform 

No corner checking. 


corner checking, 
armadillo must be 
moving vertically. 


DINIT sets all switches to their default values. 
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Basic Commands 


*.» 

( - ) 

♦TYPE 

1 addr count — ) 

♦CR 

( - ) 

♦EMIT 

( c - } 

♦SPACE 

( - ) 

♦SPACES 

( n - ) 

♦BACKS 

( ~ ) 

RGTJST 

( - J 

LFTJST 


CTRJST 

( — } 

FILJST 

( — ) 

INVID 

( f ~ ) 

INVBK 

( f ~ ) 

CAP 

{ - ) 

CAPS 

( f - ) 

COLOR 

lb-) 

TYPEOUT 

( — ) 

WINDOUT 

( - ) 

INVBK 

( ON or OFF — ) 

Text Compression 

w= 

xxx, { — J 
xxx: ( — ) 

p« 

xxx, { -- ) 
xxx: ( — ) 

5= 

xxx, { — ) 
xxx: ( — ) 

Typed Outpyt 

PRTWID 

( - n ) 

PRTIND 

( - n ) 

PWID 

( - n ) 

VIDIND 

( - n ) 

VIDWID 

( — n ) 

PRT: 

( ~ ) 

VID: 

( ~ ) 

PRINIT 

( - ) 

Windows 

WADR 

( - ) 

WHGT 

( - ) 

WCLR 

J ~ ) 

NAMWND 

{ wadr wid hght b/ch 
byt/ln — ) 

NAMEBW 

xxx, { column row wid 
hgt — ) 

xxx: ( — } 

MAKEBW 

{ col row wid hgt — ) 

NAMECW 

xxx, { col row wid hgt — 
xxx: ( — ) 

MAKECW 

( col row wid hgt — ) 


Sends following string of characters to the 
formatter. 

Sends count characters starting at addr 
to the formater. 

♦CR formats and flushes the buffer to the 
output device, clears the buffer, does CR. 
Sends the character c to the formatter. 

Sends a single character of value in the 
quan BKGND to the formatter, through *£MIT. 
Sends n characters of value in the quan BKGND 
to the formatter, through *EMIT. 

Backs up the formatter buffer pointer, BPTR, 
one location and fills new location with 
BKGND value. 

Sets up formatter for right justification. 

Sets up formatter for left justification. 

Sets up formatter for center justification. 
Sets up formatter for fill justification. 

ON INVID means text will be output in inverse 
video; OFF INVID means normal video. 

ON INVBK means background of text will be 
output in inverse video. OFF INVID means 
normal video. 

Causes capitalization of the next byte 
processed by *EMIT or *TYPE. 

ON CAPS weans text will be capitalized if 
lower case. OFF CAPS means text will be 
printed as-is. 

Color register b will be used for color of 
subsequent text output to windows in Graphics 
modes 1 and 2. 

TYPEOUT directs the formatter to use TYPE 
as its actual output routine, allowing output 
to the display screen or printer. 

WINDQUT directs the formatter to use window 
routines for output. A window must be created 
before attempting to use window output. 

When ON, background character output by 
formatter in 0 graphics mode will be inverse 
video blank. When OFF, this character will 
be normal video blank. 


Creates a tc-word-compiling word, named xxx, 
and a headerless tc-word which when executed 
sends the string xxx through the formatter 
followed by ♦SPACE, xxx when executed, com¬ 
piles in the cfa of this tc-word. W* and xxx 
are both in transient area and so are disposed 
by DISPOSE. 

Creates a tc-prefix-compiling word, named xxx, 
and a headerless tc-prefix which when executed 
sends the string xxx through the formatter, 
xxx,when executed, compiles in the cfa of 
this cfa of this tc-prefix. P* and xxx are 
both in the transient area and so are disposed 
by DISPOSE. 

Creates a tc-suffix-compiling word, named 
xxx and a headerless tc-suffix which when 
executed sends the string xxx through the 
formatter preceded by *BACKS and followed 
by *SPACE. xxx, when executed, compiles in 
the cfa of this tc-suffix. S= and xxx are 
both in the transient area and so are dis¬ 
posed by DISPOSE. 


A quan containing the width of the area to 
be printed when printer output from the 
formatter has been selected by PRT:. 

A quan containing the number of spaces the 
printer is to indent when outputting from 
the formatter. 

A quan containing the number of columns the 
printer is actually able to print. 

A quan containing the number of spaces the 
output routine is to indent when outputting 
from the formatter. 

A quan containing the width of the area to 
be written when video.output from the for¬ 
matter has been selected by VID:. 

Directs TYPEd output to the printer, and 
moves appropriate values into WWID and PVIND. 
Directs TYPEd output to the video display, 
and moves appropriate values into WWID and 
PVIND. 

Resets PCTR, the printed line counter. 


Address in memory corresponding to character 
position in upper lefthand corner of current 
window. 

Height in lines of currently active window. 

Fills the current window with BKGND. 

One of many possible window-defining structures. 
Accepts window upper lefthand corner address, 
its width, height, byte/character, and the 
bytes/In of the current graphics mode. 

Names a 0 graphics window for later 
activation. 

Establishes a 0 graphics window immediately 
but does not name It for later retrieval. 

) Names a 1 or 2 graphics window for later 
activation. 

Establishes a 0 graphics window immediately 
but,does not name It for later retrieval. 


Virtual (Disk-based) Memory 

(A pointer to a byte on disk is implemented by the two system variables, BLK and 
IN In the fig model. ILK contains the block number pointed to and IN contains the 
number of bytes into the block the byte in question is located.) 


( - blk in ) 


( adr — adr+2 xcount ) 


xxx, ( blk in — ) 
xxx; ( — ) 


xxx, ( blk in — ) 
xxx: ( — ) 

{ - XCOUNT ) 


( - X$-PA0 } 

{ - ) 

{ X$ - ) 


( scr — ) 


leaves the values of BLK and IN on the stack 
at the time it is executed and then scans the 
virtual memory pointer formed by BLK and IN 
forward until the next " character is encountered. 
Starting from the location in virtual memory 
pointed to by BLK and IN, outputs characters 
through *EMIT until a " character is encountered, 
which it does not output. 

Extracts a two-byte count from an extended 
string, and leaves the count on top of the 
address + 2. 

Generally used after V“. Takes a virtual 
memory pointer from the stack, and creates 
a word xxx which when executed will push the 
virtual memory pointer to BLK and IN and then 
execute XMTV, thus retrieving a message from 
disk. 

Creates a word xxx which when executed pushes 
the virtual memory pointer which was on stack 
at the time of its creation to BLK and IN. 
Extracts a two-byte string count from the 
disk location to which BLK and IN point, 
leaves it on stack, and bumps the virtual 
memory pointer made up of BLK and IN twice. 
Extracts the extended string in virtual 
memory pointed to by ILK and IN. The string 
is left at PAD. 

Sends the extended string pointed to by BLK 
and IN through *EMIT. 

Stores the extended string on stack to 
virtual memory starting at the location 
pointed to by BLK and IN. — 

Reads the following characters until the 
delimeter " as an extended string and stores 
the string at PAD. Operates from screens 
only. Crosses block and screen boundaries 
without additional code. 

Sets up AITBLK and ALTIN to point to screen 
scr. ALTBLK and ALTIN form an auxiliary 
virtual memory pointer that is used to keep 
track of how far messages have been compiled 
onto the destination disk. 
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